home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / amos / PrgCollection.lha / Smarttext1.AMOS / Smarttext1.amosSourceCode
Encoding:
AMOS Source Code  |  1994-03-12  |  1.1 KB  |  41 lines
  1. ' *************************************
  2. ' *                                   *
  3. ' *          Smarttext 1 V1.0         *
  4. ' *      Written by Chris Hodges      *
  5. ' *                                   *
  6. ' *************************************
  7. '
  8. ' Smarttext1 schiebt die ASCII Werte eines SPACE-Strings 
  9. ' so lange nach oben bis der Wert des Text-String erreicht ist.  
  10. '  
  11. ' Wenn der Wert des ï¿½bergeben Parameters X kleiner als 0 ist,
  12. ' wird der Text automatisch zentriert. 
  13. '
  14. Screen Open 0,320,200,2,0
  15. Curs Off : Flash Off : Paper 0 : Cls 
  16. Palette 0,$FFF
  17. A=0
  18. Repeat 
  19.   Add A,1,1 To 4
  20.   A$="PRESS ANY KEY TO EXIT!"
  21.   If A=1 Then A$="HELLO WORLD!"
  22.   If A=2 Then A$="SMART TEXT WITH AMOS"
  23.   If A=3 Then A$="THIS PROCEDURE IS EASY TO USE!"
  24.   Cline : SMARTTEXT[A$,-1]
  25.   For W=1 To 100
  26.     Wait Vbl 
  27.     Exit If Inkey$<>"",2
  28.   Next 
  29. Until Inkey$<>""
  30. Procedure SMARTTEXT[T$,X]
  31.   A$=Space$(Len(T$))
  32.   If X<0 Then X=(Screen Width/16)-(Len(T$)/2)
  33.   Repeat 
  34.     B=0
  35.     For A=1 To Len(T$)
  36.       C=Asc(Mid$(A$,A,1))
  37.       If C<Asc(Mid$(T$,A,1)) Then Mid$(A$,A,1)=Chr$(C+1) Else Inc B
  38.     Next 
  39.     Print At(X,);A$;
  40.   Until B=Len(T$)
  41. End Proc